(compilation-set-window-height): Use save-excursion to protect against misplaced...

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 45705fc37bc05e89ab3c313a4a71613d4851822c..b22639f03509fdecc170b70b1d32ce66c8ba6f68 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -990,8 +990,9 @@ exited abnormally with code %d\n"
         ;; buffer, which might not be the same as the selected window's buffer.
         (save-current-buffer
           (save-selected-window
-            (select-window window)
-            (enlarge-window (- height (window-height))))))))
+            (save-excursion
+              (select-window window)
+              (enlarge-window (- height (window-height)))))))))
 
 (defvar compilation-menu-map
   (let ((map (make-sparse-keymap "Errors")))